﻿

Public Class frm_Login

    Private Sub btn_Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Ok.Click
        Cursor.Current = Cursors.WaitCursor
        PublicVariables.master = New WebRef.MasterData
        PublicVariables.dt_Item = PublicVariables.master.GetItemMasterData("C00002").Tables(0)
        PublicVariables.dt_Outlet = PublicVariables.master.GetBusinessPartner("C", "C00002").Tables(0)
        Dim frmMain As New frm_Main
        frmMain.Show()
        Cursor.Current = Cursors.Default
    End Sub

    Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click
        Me.Dispose()
    End Sub

    Private Sub createItemWithPrice()

    End Sub
End Class
